home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64 / learning english (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.7 KB  |  144 lines
  1. 1 rem *** learning english --pd!!-- ***
  2. 2 :
  3. 3 :
  4. 5 poke 53281,0:poke 53280,0:print""
  5. 7 printchr$(14);chr$(8)
  6. 10 print"[147]":dime$(99),d$(99)
  7. 20 print"[214]okabel-[212]raining"
  8. 25 print"         [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  9. 30 print"[215]aehle aus:"
  10. 35 print"[163][163][163][163][163][163][163][163][163][163][163]"
  11. 40 print"(1)   [197]ingeben"
  12. 50 print"(2)   [211]peichern"
  13. 60 print"(3)   [197]inlesen"
  14. 70 print"(4)   [213]eben"
  15. 80 print"(5)   [206]achschlagen"
  16. 85 print"(6)   [193]uflisten"
  17. 90 print"(7)   [197]nde"
  18. 100 getw$:ifw$=""then100
  19. 110 ifw$="7"then150
  20. 120 ifw$<"1"orw$>"6"then100
  21. 130 onval(w$)gosub1000,2000,3000,4000,6000,8000
  22. 140 print"[147]":goto20
  23. 150 print"[147]";:end
  24. 1000 rem eingabe oder woerter
  25. 1010 print"[147]":n=0
  26. 1020 print"[204]etztes [215]oerterpaar: *  * ":print"
  27. 1030 [133]"valnglisch ";e$(n):[153]
  28. 1040 [133]"str$eutsch ";d$(n)
  29. 1050 [139]e$(n)[179][177]"*"[167]n[178]n[170]1:[153]"load":[137]1020
  30. 1060 n[178]n[171]1
  31. 1070 [142]
  32. 2000 [143] woerter speichern
  33. 2010 [153]"load":[133]"(NULL)ennwort ";a$
  34. 2020 [159]1,8,1,a$
  35. 2030 [152]1,n
  36. 2040 [129]i[178]0[164]n
  37. 2050 [152]1,e$(i);[199](13)
  38. 2055 [152]1,d$(i);[199](13)
  39. 2060 [130]i
  40. 2070 [160]1
  41. 2080 [142]
  42. 3000 [143] einlesen der woerter
  43. 3010 [153]"load":[133]"(NULL)ennwort ";a$
  44. 3020 [159]1,8,0,a$
  45. 3030 [132]1,n
  46. 3040 [129]i[178]0[164]n
  47. 3050 [132]1,e$(i)
  48. 3055 [132]1,d$(i)
  49. 3060 [130]i
  50. 3070 [160]1
  51. 3080 [142]
  52. 4000 [143] ueben
  53. 4010 [153]"load(1) valnglisch > str$eutsch"
  54. 4020 [153]" oder"
  55. 4030 [153]"(2) str$eutsch > valnglisch"
  56. 4040 [153]" oder"
  57. 4050 [153]"(m) (NULL)enue"
  58. 4060 [161]w$:[139]w$[178]""[167]4060
  59. 4070 [139]w$[178]"m"[167]5000
  60. 4080 [139]w$[179][177]"1"[175]w$[179][177]"2"[167]4060
  61. 4090 [145][197](w$)[141]10000,20000
  62. 5000 [142]
  63. 6000 [143] nachschlagen
  64. 6010 [153]"load(1) valnglisch > str$eutsch"
  65. 6020 [153]"         oder"
  66. 6030 [153]"(2) str$eutsch > valnglisch"
  67. 6040 [153]"         oder"
  68. 6050 [153]"(m) (NULL)enue"
  69. 6060 [161]w$:[139]w$[178]""[167]6060
  70. 6070 [139]w$[178]"m"[167]7000
  71. 6080 [139]w$[179][177]"1"[175]w$[179][177]"2"[167]6060
  72. 6090 [145][197](w$)[141]15000,25000
  73. 7000 [142]
  74. 8000 [153]"load"
  75. 8010 [153]"(NULL)okabel-(NULL)iste:";a$
  76. 8015 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  77. 8020 [129]i[178]0[164]n[169]6:[129]j[178]0[164]5
  78. 8030 [153]e$(j[170]i),d$(j[170]i)
  79. 8040 [153]
  80. 8050 [130]j
  81. 8060 [153]"str$ruecke eine (NULL)aste!"
  82. 8070 [161]w$:[139]w$[178]""[167]8070
  83. 8075 [153]"load"
  84. 8080 [130]i
  85. 8090 [142]
  86. 10000 [143] upro ueben
  87. 10010 [153]"load(NULL)ie heisst das deutsche (NULL)ort ?"
  88. 10020 j[178][181]([187](ti)[172]n[170].5)
  89. 10030 [153]"";e$(j);"?"
  90. 10040 [153]"":[133]d$
  91. 10050 [153]""
  92. 10060 [129]k[178]0[164]n
  93. 10070 [139]e$(k)[178]e$(j)[175]d$[178]d$(j)[167][153]"(NULL)ichtig!!!":[137]10130
  94. 10080 [130]k
  95. 10090 [153]"";e$(j);"wait heisst auf deutsch "
  96. 10100 [129]k[178]0[164]n
  97. 10110 [139]e$(k)[178]e$(j)[167][153]:[153]"";d$(k);"wait"
  98. 10120 [130]k
  99. 10130 [153]"str$ruecke eine (NULL)aste oder m!"
  100. 10140 [161]w$:[139]w$[178]""[167]10140
  101. 10150 [139]w$[178]"m"[167]10170
  102. 10160 [137]10010
  103. 10170 [142]
  104. 15000 [143] upro nachschlagen
  105. 15010 [153]"loadvalnglisches (NULL)ort?"
  106. 15015 [133]e$
  107. 15020 [129]k[178]0[164]n
  108. 15030 [139]e$(k)[178]e$[167][153]:[153]"";d$(k);"wait"
  109. 15040 [130]k
  110. 15050 [153]"str$ruecke eine (NULL)aste oder m!"
  111. 15060 [161]w$:[139]w$[178]""[167]15060
  112. 15070 [139]w$[178]"m"[167]15090
  113. 15080 [137]15010
  114. 15090 [142]
  115. 20000 [143] upro ueben
  116. 20010 [153]"load(NULL)ie heisst das englische (NULL)ort ?"
  117. 20020 j[178][181]([187](ti)[172]n[170].5)
  118. 20030 [153]"";d$(j);"?"
  119. 20040 [153]"":[133]e$
  120. 20050 [153]""
  121. 20060 [129]k[178]0[164]n
  122. 20070 [139]d$(k)[178]d$(j)[175]e$[178]e$(j)[167][153]"(NULL)ichtig!!!":[137]20130
  123. 20080 [130]k
  124. 20090 [153]"";d$(j);"wait heisst auf englisch:"
  125. 20100 [129]k[178]0[164]n
  126. 20110 [139]d$(k)[178]d$(j)[167][153]:[153]"";e$(k);"wait"
  127. 20120 [130]k
  128. 20130 [153]"str$ruecke eine (NULL)aste oder m!"
  129. 20140 [161]w$:[139]w$[178]""[167]20140
  130. 20150 [139]w$[178]"m"[167]20170
  131. 20160 [137]20010
  132. 20170 [142]
  133. 25000 [143] upro nachschlagen
  134. 25010 [153]"loadstr$eutsches (NULL)ort"
  135. 25015 [133] d$
  136. 25020 [129]k[178]0[164]n
  137. 25030 [139]d$(k)[178]d$[167] [153]:[153]"";e$(k);"wait"
  138. 25040 [130]k
  139. 25050 [153]"str$ruecke eine (NULL)aste oder m!"
  140. 25060 [161]w$:[139]w$[178]""[167]25060
  141. 25070 [139]w$[178]"m"[167]25090
  142. 25080 [137]25010
  143. 25090 [142]
  144.